EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
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i ENVIRONMENT: VAX-11 User Mode 
i AUTHOR: John Sauter, CREATION DATE: 13-NOV-1979 
i MODIFIED BY: 
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45 Original. JBS 15-NOV-1979 

ahha entry point name. JBS 27-NOV-1979 

change STRS Zodes to LIB$. JBS_22-JAN-1980 

Restrict image name ne string to to 132 bytes, since that's all that 
DCL can handle. 198 

Remove use of or st _ salt AST disabling, which are 


a 
oO 
eeee 


i 1-005 


unnecessary. Jan- 
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; 1 1 MODULE itt ae PR GRAM ( wm soother pce ram 
: § ¢ IDE -008' ' File: LIBRUNPRO-B 2 Edit: $8L1008 
: 4 )=z 
; 5 : BEGIN 
: § 0 ; PITITILILI LILI LLL LILL LLL LLL Lilli itil iii Lili 
Ps '® e i 
: § 8 jis COPYRIGHT (c) 1978, 1980, 1982, 1984 8 e | 
3 10 010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
3 1) pot) : it ALL RIGHTS RESERVED. . 
; ig ig 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 
oe 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ee 15 1! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS TWARE OR ANY OTHER * 
; 18 Big 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE Ti ANY * 
3 1 1 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 Bai8 : -” TRANSFERRED. 7 
; 0020 1 ie pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 8 1 #1 fe SH vite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: ¢ 00 § : : CORPORA TION. : 
; 4 0024 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: ; 09 é : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
4 i 
: i 00 & : A panenenenenithesbeiedetneeinesineNeieneNnENndeeeenenienneNMNneNbennn 
3 9 0029 1! 
3 0 0030 1 
3 1 0031 1 
¢ 00 ; 1 
3 00 1! 
; 5 4 ¢ } ' ABSTRACT: 
; 6 8 1 i This module causes the current program to end and another 
3 7 89 1 program to be run in its place. 
3 8 1 
3 9 1 
3 0 1 
$ 1 1 
3 ; 1 
3 1 
$ & 1 
3 1 
3 1 
3 1 
3 1 
3 1 
7 
pe 1 ' 1-006 - Enhance A rece @ eed’ gael classes of string descriptors 

2 55 1! y invok IBEANALY 2 R3 to extract len f and 

; 4 54 1! address on 1st da byt § Soest. descri tore RKR 27-MAY-1981. 

; 5 33 : ! 1-007 - reicest vibes s front B Hage oe Matt tt 

: $ 57 1! 1-008 - bee SISK -SRUDESCS Report LIBS_NOCLI fe LIBS_UNECLIERR errors. 


lee 
! FACILITY: General Library 
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Return an error if the file doesn't exist. SBL 18-Dec-1981 
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; 6 1! 

: ee § : ; SWITCHES: 

: 4 

3 6 § 1 SWITCHES settee MODE 

: o8 : (EXTERNAL = GENERAL, NONEXTERNAL = WORD RELATIVE); 

: a 83 1! 

: f} 4! ! : LINKAGES: 

; 7 Us } , REQUIRE "RTLIN:STRLNK'; ! Linkage for LIBSANALYZE_SDESC_R2 

> 75 4 1 | TABLE OF CONTENTS: 

; f ee 

<n 61 1 FORWARD ROUTINE 

ae 66 1 LIBSRUN_PROGRAM; ! End this program and start another 

: Bt a 

; 8¢ 0265 1 ! INCLUDE FILES: 

: Re a 

; +4 ' REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining PSECTs 

; 44 8 $e : LIBRARY ‘RTLSTARLE'; ! System symbols 

: 89 66 REQUIRE "RTLML:CLIMSG'; ! CLIS$_ messages 

: 91 rh 1! 

3 7: Tl eames 

a: LB ibe 

> 96 38 1 | EQUATED SYMBOLS: 

.. or os ee 

: +4 20 ' NONE 

3 100 36 i PSECTS: 

; 106 3 : DECLARE _PSECTS (LIB); ! Declare psects for LIBS facility 

3 104 9 | OWN STORAGE: 

; 106 ; 1 i NONE 

> 1! 

; 108 1 ! EXTERNAL REFERENCES: 

OM £e 

> 0111 1 EXTERNAL ROUTINE 

3 Ng 4 LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, Extract length 
> oe 1 and acerepe of 
: 114 1 | Ist data byte 

: 115 1 om descriptor 
3 118 ! SYSSCLI; ' Call the command ve A. “Interpreter 
: 11 1 6 

3 119 1 ! The following are the error codes used in this module. 


tBRRUN.PROGRAR 1$3eoc19R4 01:18:04 YARSTT Liege 82 vesoa7Kg. 


ee 


3 Hye 

: 1 78 1 EXTERNAL LITERAL 

3 79 «1 LIBS_NOCLI o CLI to gig SeneTren 
> 4 1 LIBS_UNECLIERR, | Unexpected €L CLI e 

3 } 2 6 } : LIBS_INVARG; ! Invalid srgument. 


m 10 

IBSRUN_PROGRAM 16-Sep-1984 13:04 AX-11 Bliss-32 V4.0-74 Page 5 
tit al Ve-8ep-1986 12:39:58 EMTertu SReai TeRUNPRO. B82; 1 9 (35 
3 } 3 ; ] GLOBAL ROUTINE LIBSRUN_PROGRAM ( ! RUN another program 
; ! 5 } PGM_NAME ! Name of program to RUN 
2: . 
: 134 e89 | tes 
; ; 5 } FUNCTIONAL DESCRIPTION: 
: 1 f 3 Stop running this program and start running another. 
; 139 34 | CALLING SEQUENCE: 
; 14) $ | status.wlc.v = LIBSRUN_PROGRAM (PGM_NAME.rt.dx) 
; 148 i FORMAL PARAMETERS: 
: 145 0700 1! PGM_NAME.rt.dx The name of the program to be run in place of 
: 146 349 ;! this one. 
3; «147 7 ¢ 1! It may not be longer than 132 characters. 
3; «148 0703 1! 
; 4149 be Re 1 ! IMPLICIT INPUTS: 
ORR oe 
; 15 oF 1! 
; 138 188 1 ! IMPLICIT OUTPUTS: 
> «154 0709 1! 
: 188 on i ste 
; 137 Or ! COMPLETION CODES: 
; 159 0714 1! LIB$_NOCL! No CLI present to perform function 
; 160 0715 1! LIBS_UNECLIERR Unexpected CLI error 
; 6161 org 1! LIB$_INVARG Invalid argument 
; 166 tat : RMS$_xxx RMS error status 
: 164 0719 1 SIDE EFFECTS: 
: 165 0720 1! 
: 166 0721 1! Does not normally return to its caller. 
: 168 o788 1 | 
> 169 0724 1 
: 179 07 ‘ BEGIN 
: 17 MAP 
3 178 4 3 PGM_NAME : REF BLOCK (8, BYTE); 
; 175 730 LOCAL 
3 178 $7 1 RET_STATUS : BLOCK (4, BYTE), ! Status returned 
; As 4 § CLI_REQ_BLOCK : BLOCK CCLISK_SRVDESC, BYTE), ops pervice 
: 179 7 DESC_ADDR : REF BLOCK (8, BYTE), ' Pointer to descriptor 
: 180 735 ' in req bloc 
; «181 7 PGM_NAME _LEN, ' Length of the ; 
3 136 7 : progres name provided. 
; 18 7 3 PGM_NAME _ADDR; ! Address of ist data 
3; «(184 7 ' byte 
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1 
ir 

' Extract length and address of Ist data byte of parameter. If we 
: fail, return status returned by LIBSANALYZE_SDESC_R2. 


RET_STATUS = LIBSANALYZE_SDESC_R2 ( .PGM_NAME ; 
PGM_NAME_LEN, PGM_NAME_ADDR ) ; 


IF NOT .RET_STATUS THEN RETURN (.RET_STATUS) ; 
‘+ 
Don't allow too long a name. 


IF (.PGM_NAME_LEN GTRU 132) THEN RETURN (LIBS_INVARG); 


14 
Initialize CLI command request block. 


CHSFILL (0, CLISK_SRVDESC LI_REQ BLOCK); 

CLI_REG_BLOCK CCLY$B_ROTYPE) ="CLISK CLISERV; ! Request a service 
CLI“REQ"BLOCK CCLISW"SERVCOD) = CLISR CHAIN;  ! Service is ‘CHAIN’ 
DEST_ADBR = CLI_REQ_BLOCK CCLI$Q_RQDESCI; 
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14 
Fill in the descriptor 


”  DESC_ADDR CDSCSW_LENGTH] = .PGM_NAME_LEN; 
DESCTADDR CDSCSA“POINTER] =" .PGR_NAME_ADOR; 


RET_STATUS = SYSSCLI (CLI_REQ_BLOCK); 
IF NOT .RET_STATUS 
THEN 
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BEGIN 
ai aie CSTSSV_FAC_NO) EQL CLIS_FACILITY 
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BEGIN 

IF .RET_STATUS EQLU CLI$_INVREQTYP 
RETURN LIB$_NOCLI 
RETURN LIB$_UNECLIERR; 


ELSE 
RETURN .RET_STATUS; 


'¢ 
: Now, to get the chain to take effect, we must exit. 


SEXIT (CODE = SS$_NORMAL); 
| 
| 
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'¢ 
! Its not likely that we'll get back from a call to SEXIT, but BLISS 
doesn't know that, so it insists that we return a value. 
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343 0797 2 RETURN (0); 
4 798 END; ! end of LIBSRUN_PROGRAM 
.TITLE LIBSRUN_PROGRAM 
IDENT 18 OO8N 
.EXTRN LIBSANALYZE_SDESC_R2 
-EXTRN SYSSCLI, LIB$ NOCLI 
SEXTRN Lis, UNECLIERR, LIBS_INVARG 
“EXTRN SYSSEX 
.PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
01FC 00000 -ENTRY LIBSRUN_PROGRAM, Save R2,R3,R4,R5,R6,R7,RB 
SE AC AE i 00002 MOVAB <=84(SP)> SP 
50 04 AC 00 00006 MOVL § PGM_NAME, RO 
000000006 90 16 OO00A JSB LIBSANALYZE_SDESC_R2 
Sé 0 7D 90019 MOVa RO, RET_STATUS 
58 52 D0 0001 MOVL 
SA 56 £9 00016 BLBC RET_STATUS, 3$ 
00000084 F 57 D1 00019 CMPL § PGM“NAME_LEN, #132 
08 1B 00020 BLEGU 1$ ~ 
50 000000006 8F bo 900 g MOVL #LIBS_INVARG, RO 
0054 «BF 00 6E 00 se 900 A 1$: MOVCS #0, (SP), #0, #84, CLI_REQ_BLOCK 
6E 05 90 00032 MOVB #5, CLI_REQ_BLOCK 
01 Ae 04 B0 0003 MOVW 4, CLIZREQ7BLO 
50 08 Ag 9E 00039 MOVAB CLI_REQ BLOCK+8, DESC_ADDR 
60 57 BO 00030 MOVW PGM"NAME_LEN, (DESC_ADDR) 
04 AO 58 DO 00040 MOVL § PGM“NAME-ADDR, 4(DESC_ADDR) 
SE DD 00044 PUSHL SP 
000000006 00 01 FB 00046 CALLS #1, SYSS$CLI 
56 50 D0 00040 MOVL RO, RET TLATyS 
24 56 «E8 90050 BLBS REI_S 4$ 
03 56 0c 10 ED 0005 CMP7V #167 S}ATU het STATUS, #3 
19 12 00058 BNEQ 
00038822 8F 56 D1 0005A CMPL §- RET_STATUS, #231458 
08 12 90061 BNEG & 
50 000000006 8F b0 0065 HOVL #LIBS_NOCLI, RO 
50 000000006 &F B0 Hy 2$ MOVL #LIBS_UNECLIERR, RO 
50 56 D0 $07 3$ MOVL §RET_STATUS, RO 
04 007% RET 
01 0D 07 4$: PUSHL #1 
000000006 00 gi FB 00079 CALLS #1, SYSSEXIT 
0 D4 9080 CLRL ~—_ RO 
04 00082 RET 
; Routine Size: 131 bytes, Routine Base: _LIBSCODE + 0000 
> 2h 9799 1 
45 300 1 END ! end of module LIBSRUN_PROGRAM 
246 0801 1 
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-Sep-1984 LIBRTL.SRC [TSRUNPRO. f 2;1 
247 0802 0 ELUDOM 
PSECT SUMMARY 

Name Bytes Attributes 

_LIBSCODE 131 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
(eeeeene- Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 

-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 16 0 581 00:00.8 


COMMAND QUALIFIERS 


BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:LIBRUNPRO/0BJ=0BJ$:L IBRUNPRO MSRC$:LIBRUNPRO/UPDATE=(ENHS$:L IBRUNPRO 


Size: 131 code + 0 data bytes 
fey Time: 00:09. 
Flapeed tags 00:39. 
Lines/CPU Min: 4910 
,onenes (CMe: 96244 
oY Used: 103 pages 
—— ation Complete 
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